home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 April / MacFormat CD Edition MF36 (April 1996).iso / Shareware City / Comms / TableMaker ƒ / TableMaker / TableMaker.rsrc / TEXT_128_!.txt < prev    next >
Encoding:
Text File  |  1996-01-22  |  6.6 KB  |  234 lines
  1. #!/usr/bin/perl
  2.  
  3. ############################################################################
  4. #
  5. # TableMaker by Sam Choukri 
  6. # Copyright 1995, 1996 
  7. # version 1.0.1
  8. # January 22, 1996
  9. #
  10. # If you want to redistribute TableMaker, please include ALL the files in
  11. # their ORIGINAL STATE, including the Runtime or Droplet version of the
  12. # TableMaker application, documentation, and the default settings file. Do
  13. # not under any circumstances redistribute just this file -- the actual
  14. # TableMaker MacPerl script.
  15. #
  16. # You can modify this script to suit your needs, but do not redistribute
  17. # your modified copy. I don't claim to be a good Perl programmer. If you
  18. # make changes that improves the efficiency or adds new features, send me
  19. # a copy of the modified script and I'll consider incorporating the changes
  20. # into the next released version of TableMaker.
  21. #
  22. # Remember, TableMaker is shareware. If you feel it has been helpful to
  23. # you, please send five US dollars to:
  24. # 
  25. #     Sam Choukri
  26. #     406 Tucker Hall, UMC
  27. #     Columbia, MO 65211
  28. # 
  29. # TableMaker started out as a web page and then was converted into a stand
  30. # alone version after popular demand. Check out TableMaker on the web at
  31. # <http://www.missouri.edu/~c588349/tablemaker.html>.
  32. # 
  33. # You can send me e-mail at <sam@pobox.com> if you'd like.
  34. #
  35. ############################################################################
  36.  
  37.  
  38. # check to see if there were any files dropped on TableMaker
  39. if (@ARGV == 0) {&MacPerl'Answer("To use TableMaker, you need to drag and drop one or more data files onto it.\n\nPlease quit and try again.", "Quit");
  40. &MacPerl'Quit(1); # automatically quits MacPerl Runtime version
  41. exit;
  42. }
  43.  
  44. ###################################################
  45. # these are the required functions from "GUSI.ph"
  46.  
  47. sub AF_FILE         { 4;    }
  48. sub pack_sa_constr_file    {
  49.     local($count, $constr, $cur) = (0, "");
  50.     
  51.     while ($cur = shift) {
  52.         ++$count;
  53.         $constr .= pack("A4", $cur);
  54.     }
  55.     
  56.     pack("s", $count) . $constr;
  57. }
  58. ###################################################
  59.  
  60. $settingsfile = &MacPerl'Choose(
  61.                &AF_FILE, 0, "Select a settings file:", 
  62.                &pack_sa_constr_file("TEXT"));
  63.  
  64.  
  65. require "$settingsfile";
  66.  
  67. if (($BOLD_CAPTION eq 'YES') && ($CAPTION ne '')) { $CAPTION = "<B>" . $CAPTION . "<\/B>";}
  68.  
  69.  
  70.     while (@ARGV > 0) {
  71.         $arg = shift(@ARGV);
  72.         &find($arg), next if -d $arg;
  73.         &searchLoop($arg);
  74.         next if -f $arg;
  75.  
  76.     }
  77.  
  78. sub searchLoop {
  79. local ($thefilename) = @_;
  80.  
  81. # create an output html file and start printing to it
  82. # but first make sure the output filename won't exceed 31 chars
  83. # -------------------------------------------------------------
  84. @temp = split(/:/,$thefilename);
  85. while (length($temp[$#temp]) > 26) {chop $temp[$#temp];}
  86. $outputfile = join(':', @temp) . ".html";
  87. open(OUTPUT, ">".$outputfile) || die "Can't write to file\n";
  88. &MacPerl'SetFileInfo($CREATOR, "TEXT", $outputfile) ;
  89.  
  90. print OUTPUT <<ENDOFTEXT;
  91. <HTML>
  92. <HEAD><title>TableMaker Output</title></HEAD>
  93. <BODY>
  94.  
  95. <H1>TableMaker Output</H1>
  96.  
  97. ENDOFTEXT
  98.  
  99. $/ = "";                    # enable paragraph mode for input
  100. $* = 1;                     # enable multi-line patterns for search/replace
  101.  
  102. open(THEFILE, $thefilename) || die "Can't open file $thefilename\n";
  103. while ($data = <THEFILE>) {
  104.  
  105.  
  106. # by default, format all cells as data cells
  107. # ------------------------------------------
  108. $data =~ s/((\r)+)/\n/g;
  109. $data =~ s/((\n)+)/\n/g;
  110. $data =~ s/^(.*)$/<TR>\n  <TD>$1<\/TD>\n<\/TR>/g;
  111. $data =~ s/$DELIMITER/<\/TD>\n  <TD>/go;
  112.  
  113.  
  114.  
  115. $HEADER =~ tr/[a-z]/[A-Z]/;  # make sure input is in all caps
  116.  
  117. # change the formatting of the first row to header cells
  118. # ------------------------------------------------------
  119. if (($HEADER eq 'FIRST ROW') || ($HEADER eq 'FIRST ROW AND COLUMN')) {
  120. $data =~ s/((\n)+)//g;
  121. $* = 0;
  122. $data =~ s/<\/TR>(.*)<\/TR>/<\/TR><TEMPORARY_DATA><\/TR>/g;
  123. $TEMPORARY_DATA = $1;
  124. $data =~ s/<TD>/<TH>/g;
  125. $data =~ s/<\/TD>/<\/TH>/g;
  126. $data =~ s/<TEMPORARY_DATA>/$TEMPORARY_DATA/g;
  127. $* = 1;
  128. $data =~ s/<TR>/<TR>\n/g;
  129. $data =~ s/<\/T([DHR])>/<\/T$1>\n/g;
  130. $data =~ s/<\/TR>(\n)+/<\/TR>\n/g;
  131. }
  132.  
  133.  
  134. # change the formatting of the first column to header cells
  135. # ---------------------------------------------------------
  136. if (($HEADER eq 'FIRST COLUMN') || ($HEADER eq 'FIRST ROW AND COLUMN')) {
  137. $data =~ s/<TR>\n  <TD>(.*)<\/TD>/<TR>\n  <TH>$1<\/TH>/g;
  138. }
  139.  
  140.  
  141. # change the formatting of all cells to header cells
  142. # --------------------------------------------------
  143. if ($HEADER eq 'ALL CELLS') {
  144. $data =~ s/<TD>/<TH>/g;
  145. $data =~ s/<\/TD>/<\/TH>/g;
  146. }
  147.  
  148.  
  149. # look for row and column spanning codes
  150. # --------------------------------------
  151. $SPANNING =~ tr/[a-z]/[A-Z]/;  # make sure input is in all caps
  152. if ($SPANNING eq 'YES') {
  153. $data =~ s/<T([DH])>\(colspan=([\d]*)\)/<T$1 COLSPAN=$2>/gi;
  154. $data =~ s/<T([DH])>\(cs=([\d]*)\)/<T$1 COLSPAN=$2>/gi;
  155. $data =~ s/<T([DH])>\(rowspan=([\d]*)\)/<T$1 ROWSPAN=$2>/gi;
  156. $data =~ s/<T([DH])>\(rs=([\d]*)\)/<T$1 ROWSPAN=$2>/gi;
  157. }
  158.  
  159. # specify the horiz alignment for all cells in a row
  160. # --------------------------------------------------
  161. $ROW_ALIGN =~ tr/[a-z]/[A-Z]/;  # make sure input is in all caps
  162. if ($ROW_ALIGN ne 'DEFAULT') {
  163. $data =~ s/<TR>/<TR ALIGN=$ROW_ALIGN>/g;
  164. }
  165.  
  166. # specify the horiz alignment for all data cells
  167. # ----------------------------------------------
  168. $TD_ALIGN =~ tr/[a-z]/[A-Z]/;  # make sure input is in all caps
  169. if ($TD_ALIGN ne 'DEFAULT') {
  170. $data =~ s/<TD/<TD ALIGN=$TD_ALIGN/g;
  171. }
  172.  
  173. # specify the horiz alignment for all header cells
  174. # ------------------------------------------------
  175. $TH_ALIGN =~ tr/[a-z]/[A-Z]/;  # make sure input is in all caps
  176. if ($TH_ALIGN ne 'DEFAULT') {
  177. $data =~ s/<TH/<TH ALIGN=$TH_ALIGN/g;
  178. }
  179.  
  180.  
  181. # choose how the table source is formatted
  182. # ----------------------------------------
  183. $SOURCE_LINES =~ tr/[a-z]/[A-Z]/;  # make sure input is in all caps
  184. if ($SOURCE_LINES eq 'SAME') {
  185. $data =~ s/<\/T([DH])>\n  \<T([DH])/<\/T$1> \<T$2/g;
  186. }
  187.  
  188.  
  189. # build table tags
  190. # ----------------
  191. $TABLE = "<TABLE";
  192. if ($BORDER ne '') {$TABLE .= " BORDER=$BORDER";}
  193. if ($WIDTH ne '') {$TABLE .= " WIDTH=\"$WIDTH\"";}
  194. if ($HEIGHT ne '') {$TABLE .= " HEIGHT=\"$HEIGHT\"";}
  195. if ($CELLPADDING ne '') {$TABLE .= " CELLPADDING=$CELLPADDING";}
  196. if ($CELLSPACING ne '') {$TABLE .= " CELLSPACING=$CELLSPACING";}
  197. $TABLE .= ">\n";
  198. if ($CAPTION ne '') {$TABLE .= "<CAPTION ALIGN=$ALIGN_CAPTION>$CAPTION</CAPTION>\n";}
  199. $TABLE .= $data;
  200. $TABLE .= "\n</TABLE>";
  201.  
  202.  
  203. # print the source of each table in the html file
  204. # -----------------------------------------------
  205. print OUTPUT <<ENDOFTEXT;
  206. <HR>
  207.  
  208. <!--BEGIN SOURCE OF TABLE-->
  209. $TABLE
  210. <!--END SOURCE OF TABLE-->
  211.  
  212. ENDOFTEXT
  213.  
  214. } # end while
  215.  
  216.  
  217. print OUTPUT <<ENDOFTEXT;
  218. </BODY>
  219. </HTML>
  220. ENDOFTEXT
  221.  
  222. close(OUTPUT);
  223.  
  224. } # end searchLoop
  225.  
  226. &MacPerl'Answer("Job complete.\n\nThanks for using TableMaker.", "OK");
  227.  
  228. &MacPerl'Quit(1); # automatically quits MacPerl Runtime version
  229.  
  230. exit;
  231.  
  232.  
  233.  
  234.